home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / debian_DSA-620.nasl < prev    next >
Text File  |  2005-03-31  |  4KB  |  96 lines
  1. # This script was automatically generated from the dsa-620
  2. # Debian Security Advisory
  3. # It is released under the Nessus Script Licence.
  4. # Advisory is copyright 1997-2004 Software in the Public Interest, Inc.
  5. # See http://www.debian.org/license
  6. # DSA2nasl Convertor is copyright 2004 Michel Arboi
  7.  
  8. if (! defined_func('bn_random')) exit(0);
  9.  
  10. desc = '
  11. Several vulnerabilities have been discovered in Perl, the popular
  12. scripting language.  The Common Vulnerabilities and Exposures project
  13. identifies the following problems:
  14.     Jeroen van Wolffelaar discovered that the rmtree() function in the
  15.     File::Path module removes directory trees in an insecure manner
  16.     which could lead to the removal of arbitrary files and directories
  17.     through a symlink attack.
  18.     Trustix developers discovered several insecure uses of temporary
  19.     files in many modules which allow a local attacker to overwrite
  20.     files via a symlink attack.
  21. For the stable distribution (woody) these problems have been fixed in
  22. version 5.6.1-8.8.
  23. For the unstable distribution (sid) these problems have been fixed in
  24. version 5.8.4-5.
  25. We recommend that you upgrade your perl packages.
  26.  
  27.  
  28. Solution : http://www.debian.org/security/2004/dsa-620
  29. Risk factor : High';
  30.  
  31. if (description) {
  32.  script_id(16073);
  33.  script_version("$Revision: 1.1 $");
  34.  script_xref(name: "DSA", value: "620");
  35.  script_cve_id("CAN-2004-0452", "CAN-2004-0976");
  36.  
  37.  script_description(english: desc);
  38.  script_copyright(english: "This script is (C) 2004 Michel Arboi");
  39.  script_name(english: "[DSA620] DSA-620-1 perl");
  40.  script_category(ACT_GATHER_INFO);
  41.  script_family(english: "Debian Local Security Checks");
  42.  script_dependencies("ssh_get_info.nasl");
  43.  script_require_keys("Host/Debian/dpkg-l");
  44.  script_summary(english: "DSA-620-1 perl");
  45.  exit(0);
  46. }
  47.  
  48. include("debian_package.inc");
  49.  
  50. w = 0;
  51. if (deb_check(prefix: 'libcgi-fast-perl', release: '3.0', reference: '5.6.1-8.8')) {
  52.  w ++;
  53.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package libcgi-fast-perl is vulnerable in Debian 3.0.\nUpgrade to libcgi-fast-perl_5.6.1-8.8\n');
  54. }
  55. if (deb_check(prefix: 'libperl-dev', release: '3.0', reference: '5.6.1-8.8')) {
  56.  w ++;
  57.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package libperl-dev is vulnerable in Debian 3.0.\nUpgrade to libperl-dev_5.6.1-8.8\n');
  58. }
  59. if (deb_check(prefix: 'libperl5.6', release: '3.0', reference: '5.6.1-8.8')) {
  60.  w ++;
  61.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package libperl5.6 is vulnerable in Debian 3.0.\nUpgrade to libperl5.6_5.6.1-8.8\n');
  62. }
  63. if (deb_check(prefix: 'perl', release: '3.0', reference: '5.6.1-8.8')) {
  64.  w ++;
  65.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package perl is vulnerable in Debian 3.0.\nUpgrade to perl_5.6.1-8.8\n');
  66. }
  67. if (deb_check(prefix: 'perl-base', release: '3.0', reference: '5.6.1-8.8')) {
  68.  w ++;
  69.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package perl-base is vulnerable in Debian 3.0.\nUpgrade to perl-base_5.6.1-8.8\n');
  70. }
  71. if (deb_check(prefix: 'perl-debug', release: '3.0', reference: '5.6.1-8.8')) {
  72.  w ++;
  73.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package perl-debug is vulnerable in Debian 3.0.\nUpgrade to perl-debug_5.6.1-8.8\n');
  74. }
  75. if (deb_check(prefix: 'perl-doc', release: '3.0', reference: '5.6.1-8.8')) {
  76.  w ++;
  77.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package perl-doc is vulnerable in Debian 3.0.\nUpgrade to perl-doc_5.6.1-8.8\n');
  78. }
  79. if (deb_check(prefix: 'perl-modules', release: '3.0', reference: '5.6.1-8.8')) {
  80.  w ++;
  81.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package perl-modules is vulnerable in Debian 3.0.\nUpgrade to perl-modules_5.6.1-8.8\n');
  82. }
  83. if (deb_check(prefix: 'perl-suid', release: '3.0', reference: '5.6.1-8.8')) {
  84.  w ++;
  85.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package perl-suid is vulnerable in Debian 3.0.\nUpgrade to perl-suid_5.6.1-8.8\n');
  86. }
  87. if (deb_check(prefix: 'perl', release: '3.2', reference: '5.8.4-5')) {
  88.  w ++;
  89.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package perl is vulnerable in Debian sid.\nUpgrade to perl_5.8.4-5\n');
  90. }
  91. if (deb_check(prefix: 'perl', release: '3.0', reference: '5.6.1-8.8')) {
  92.  w ++;
  93.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package perl is vulnerable in Debian woody.\nUpgrade to perl_5.6.1-8.8\n');
  94. }
  95. if (w) { security_hole(port: 0, data: desc); }
  96.